home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / User / DataBase.st < prev    next >
Text File  |  2000-05-08  |  809b  |  23 lines
  1. " ----------------------------------------------------------------- "
  2. " DataBase Class is NOT even close to being finished yet!           " 
  3. " ----------------------------------------------------------------- "
  4. Class DataBase :ArrayedCollection
  5. ! recSize memoSize numFields fieldAddr fieldWidth fieldName fieldType 
  6.   recAddr memoAddr d_location envName
  7. !
  8. [
  9.    "Re-define all parent class messages:"
  10. |
  11.    getMemForRecord: recSize forMemo: memoSize forFields: numFields
  12. |
  13.    setFieldAddr: fieldAddr name: fieldName type: fieldType width: fieldWidth
  14.                  decimal: d_location
  15. |
  16.    setEnvironmentName: envName rAddr: recAddr mAddr: memoAddr fAddr: fieldAddr
  17.                        forFields: numFields rSize: recSize mSize: memoSize
  18. |
  19.    new: newEnvName "??"
  20.      envName <- newEnvName.
  21.      ^ self
  22. ]
  23.